* Encoding: windows-1252.

do repeat j=
   h27,h5,h14,h37,h39,h32,h38
compute j=6-j
end repeat
compute riskavd=mean(h11,h25,h15,h18,h7,h26,
   h27,h5,h14,h37,h39,h32,h38)
compute hlthcon=mean(h30,h29,h28,h34,h12,h19,h18,
  h3,h6,h24,h35,h9,h20,h36,h4)
compute hltpract=mean(h13,h1,h21,h22,h10,h16,h31,
  h8,h33,h2,h17,h23)
